home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / FW5030R3.LHA / Install FinalWriter-030 < prev    next >
Encoding:
Text File  |  1996-08-14  |  1.7 KB  |  80 lines
  1. ; $VER: FinalWriter-030_Install 1.16 (14.8.96)
  2.  
  3. (set version "5.0")
  4.  
  5. (onerror (exit (quiet)))
  6.  
  7. (message
  8.     "\n\nFinalWriter " version " '030"
  9.     "\nCopyright 1995-96 Martin Berndt"
  10.     "\n\n\n!!! This Patch is SHAREWARE !!!"
  11.     "\n\nPlease read the \"ReadMe.txt\" file."
  12. )
  13.  
  14. (set @default-dest
  15.     (askdir
  16.         (prompt "Where is your FinalWriter Drawer?")
  17.         (help @askfile-help)
  18.         (default "SYS:FinalWriter")
  19.         (newpath)
  20.     )
  21. )
  22.  
  23. (set language
  24.     (askchoice
  25.         (prompt "Select your version")
  26.         (help @askchoice-help)
  27.         (choices "US1   7-Jun-96 (American English)"
  28.              "US2  28-Jun-96 (American English)"
  29.              "US3   8-Jul-96 (American English)")
  30.     )
  31. )
  32.  
  33. (set backup
  34.     (askoptions
  35.         (prompt "Options")
  36.         (help @askoptions-help)
  37.         (choices "Create Backup Files")
  38.     )
  39. )
  40.  
  41. (set n 0)
  42. (set percent 0)
  43.  
  44. (while (set name (select n "FinalWriter" "swpost.library" "swshell.library"
  45.                "cachemap.library" "qfont.library" "")) (
  46.     (set n (+ n 1))
  47.     (complete percent)
  48.     (if (= n 1)
  49.         (set file name)
  50.         (set file ("FWLibs/%s" name))
  51.     )
  52.     (set newfile (tackon @default-dest file))
  53.     (set oldfile (cat newfile ".bak"))
  54.     (if (= (exists newfile) 0)
  55.         (abort name " not found!")
  56.     )
  57.     (rename newfile oldfile)
  58.     (if (< n 4) (
  59.                 (if (= n 1) (
  60.                         (set name (cat name (select language "US1" "US2" "US3")))
  61.                 ))
  62.         (working "\n\nPatching\n" newfile)
  63.         (if (<> (run ("spatch \"-o%s\" \"-p%s.pch\" \"%s\"" newfile name oldfile)) 0) (
  64.             (rename oldfile newfile)
  65.             (abort "Wrong Version!")
  66.         ))
  67.         (set percent (+ percent 30))
  68.     ) (
  69.         (copyfiles
  70.             (prompt "Copying " name)
  71.             (help @copyfiles-help)
  72.             (source name)
  73.             (dest (tackon @default-dest "FWLibs"))
  74.             (optional "force" "askuser")
  75.         )
  76.         (set percent (+ percent 5))
  77.     ))
  78.     (if (= backup 0) (delete oldfile))
  79. ))
  80.